object FCalc: TFCalc Left = 437 Top = 191 BorderIcons = [] BorderStyle = bsNone Caption = 'Ti M�mo - CALCULETTE' ClientHeight = 350 ClientWidth = 250 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] KeyPreview = True OldCreateOrder = True Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnKeyUp = FormKeyUp PixelsPerInch = 96 TextHeight = 14 object ImgFond: TImage Left = 0 Top = 0 Width = 250 Height = 350 Align = alClient AutoSize = True Picture.Data = {} OnMouseDown = ActionDeplacerFenetre end object BevelAide: TBevel Left = 63 Top = 18 Width = 64 Height = 25 Cursor = crHandPoint Style = bsRaised end object BevelFermer: TBevel Left = 131 Top = 18 Width = 64 Height = 25 Cursor = crHandPoint Style = bsRaised end object BevelFrancs: TBevel Left = 15 Top = 114 Width = 32 Height = 36 Cursor = crHandPoint Shape = bsFrame end object BevelEuros: TBevel Left = 15 Top = 70 Width = 32 Height = 35 Cursor = crHandPoint Shape = bsFrame end object BevelTraitInf: TBevel Left = 9 Top = 47 Width = 232 Height = 7 Shape = bsBottomLine end object BevelOperations: TBevel Left = 149 Top = 209 Width = 85 Height = 122 Shape = bsFrame end object BevelEffacements: TBevel Left = 149 Top = 165 Width = 85 Height = 46 Shape = bsFrame end object BevelChiffres: TBevel Left = 16 Top = 165 Width = 127 Height = 166 Shape = bsFrame end object Img09: TImage Left = 104 Top = 174 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object ImgEG: TImage Left = 157 Top = 293 Width = 70 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixOperateur end object Img02: TImage Left = 64 Top = 252 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object Img05: TImage Left = 64 Top = 213 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object Img08: TImage Left = 64 Top = 174 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object ImgVI: TImage Left = 64 Top = 292 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixVirgule end object Img04: TImage Left = 24 Top = 213 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object Img07: TImage Left = 24 Top = 174 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object Img00: TImage Left = 24 Top = 292 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object ImgAC: TImage Left = 194 Top = 173 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixAC end object Img03: TImage Left = 104 Top = 252 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object Img01: TImage Left = 24 Top = 252 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object Img06: TImage Left = 104 Top = 213 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object ImgEuros: TImage Left = 17 Top = 74 Width = 28 Height = 28 Cursor = crHandPoint AutoSize = True Picture.Data = {} Transparent = True OnMouseDown = Enfoncer OnMouseUp = MonaieMouseUp end object ImgFrancs: TImage Left = 17 Top = 119 Width = 28 Height = 28 Cursor = crHandPoint AutoSize = True Picture.Data = {} Transparent = True OnMouseDown = Enfoncer OnMouseUp = MonaieMouseUp end object ImgDE: TImage Left = 157 Top = 173 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixChiffre end object ImgMU: TImage Left = 157 Top = 217 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixOperateur end object ImgReduire: TImage Left = 219 Top = 12 Width = 20 Height = 20 Cursor = crHandPoint Hint = 'Fermer' AutoSize = True Picture.Data = {} Transparent = True OnMouseDown = Enfoncer OnMouseUp = ReduireMouseUp end object ImgDI: TImage Left = 194 Top = 217 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixOperateur end object ImgPL: TImage Left = 157 Top = 255 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixOperateur end object ImgMO: TImage Left = 194 Top = 255 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixOperateur end object ImgPM: TImage Left = 104 Top = 292 Width = 32 Height = 32 AutoSize = True Picture.Data = {} OnMouseDown = Enfoncer OnMouseUp = ChoixSigne end object ImgLogo: TImage Left = 12 Top = 17 Width = 24 Height = 24 Cursor = crHandPoint Hint = 'A propos de Ti M�mo' AutoSize = True Picture.Data = {} Transparent = True OnMouseDown = Enfoncer OnMouseUp = LogoMouseUp end object ImgFrancsBrillant: TImage Left = 17 Top = 119 Width = 28 Height = 28 Cursor = crHandPoint Hint = 'Saisie en Francs' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True Transparent = True OnMouseDown = Enfoncer OnMouseUp = MonaieMouseUp end object ImgEurosBrillant: TImage Left = 17 Top = 74 Width = 28 Height = 28 Cursor = crHandPoint Hint = 'Saisie en Euros' AutoSize = True ParentShowHint = False Picture.Data = {} ShowHint = True Transparent = True OnMouseDown = Enfoncer OnMouseUp = MonaieMouseUp end object Bevel1: TBevel Left = 52 Top = 70 Width = 183 Height = 80 Shape = bsFrame end object LabelAide: TLabel Left = 63 Top = 19 Width = 64 Height = 24 Cursor = crHandPoint Alignment = taCenter AutoSize = False Caption = 'AIDE' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True Layout = tlCenter OnMouseUp = AideMouseUp end object LabelFermer: TLabel Left = 131 Top = 19 Width = 64 Height = 24 Cursor = crHandPoint Alignment = taCenter AutoSize = False Caption = 'FERMER' Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True Layout = tlCenter OnMouseUp = FermerMouseUp end object PanelFrancs: TPanel Left = 60 Top = 114 Width = 167 Height = 28 Alignment = taRightJustify BevelOuter = bvLowered Caption = '- 999 999 999,99999 ' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False PopupMenu = PopupCopierFrancs TabOrder = 0 end object PanelEuros: TPanel Left = 60 Top = 79 Width = 167 Height = 28 Alignment = taRightJustify BevelOuter = bvLowered Caption = '1 234,45 ' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False PopupMenu = PopupCopierEuros TabOrder = 1 end object EditCopier: TEdit Left = 206 Top = 62 Width = 121 Height = 22 TabOrder = 2 Text = 'EditCopier' Visible = False end object PopupCopierFrancs: TPopupMenu OnPopup = PopupCopierFrancsPopup Left = 70 Top = 152 object Copier1: TMenuItem Caption = 'Copier' end end object PopupCopierEuros: TPopupMenu OnPopup = PopupCopierEurosPopup Left = 174 Top = 154 object MenuItem1: TMenuItem Caption = 'Copier' end end end